Softwarová Záchrana 3/Softwarova-zachrana-3.bin/Xteq X-Setup/xqdcXSP-Setup-EN.exe/{app}/plugins/XQ App Paths.xpl

Text File | 2000-12-21 | 5KB | 173 lines

"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="8"
"COUNT"="3"
"UIPATH"="System\File System\App Paths"
"NAME"="App Paths Editor"
"VERSION"="2.02"
"LANGUAGE"="VBScript"
"TEXT 1"="Edit..."
"TEXT 2"="Add new..."
"TEXT 3"="Delete"
"DESCRIPTION 1"="If you would like to start a program e.g. "MYAPP.exe" Windows first search the current WINDOWS and WINDOWS\SYSTEM folder for this file."
"DESCRIPTION 2"="If it's not found, Windows will continue to search for it in the %PATH% variable and if it's still not found, searches this list."
"DESCRIPTION 3"="If the EXE name is found, Windows will simply execute what you have configured, even if it's a total different file."
"DESCRIPTION 4"="Just edit the existing entries to your needs or add a new one, e.g. for some DOS tools you might have."
"COMMENT 1"=" "
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"


'Declaration of some constants
sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\"
sV1="\@"
sV2="\Path"

Dim iCount
Dim aryLoc()

'Called when the Plugin is started
SUB Plugin_Initialize
 'empty list
 For l=1 to iCount
     Call SetUIElement(l,"")
 next

 'read again
 iCount=RegEnumPaths(sP)

 if iCount>0 then
    'redim array
    ReDim aryLoc(iCount)

    for l=1 to iCount
        s=RegEnumElement(l)
        aryLoc(l)=s

        's=sP & RegEnumElement(l) & sV1
        's=RegReadValue(s)
        Call SetUIElement(l,s)
    next
 else
    Disable
 end if
END SUB

'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB

'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 If ElementIndex=2 then 'Add new
    sNewName=InputWindow("Add Item: Please name the EXE file e.g. MYTOOL.exe","",1)
    if IsEmpty(sNewName)=false then
       sNewPath=InputWindow("Add Item: Enter full path for the EXE file e.g. C:\TOOLS\mytool.exe)",sNewName,1)

       if IsEmpty(sNewPath)=false then
          Call RegWriteValue(sP & sNewName & sV1,sNewPath,1)
          Call Plugin_Initialize()
          Call MsgInformation("New item added")
       end if
   end if

 else


   if ElementSubIndex>0 then 'OK, user has selected an item
       Select Case ElementIndex
       Case 1 'Edit existing one
            sName=aryLoc(ElementSubIndex)
            sPath=RegReadValue(sP & sName & sV1)

            if len(sPath)=0 then
               'oops, this one seems to use the PATH option
               sPath=RegReadValue(sP & sName & sV2)
            end if

            sNew=InputWindow("Change EXE command for selected item (use a full path e.g. C:\TOOLS\mytool.exe)",sPath,1)
            if IsEmpty(sNew)=false then
               Call RegWriteValue(sP & sName & sV1,sNew,1)
               Call MsgInformation("EXE command changed to " & sNew)
            end if

       Case 3 'DELETE
            sName=aryLoc(ElementSubIndex)
            Call RegDeleteValue(sP & sName & sV1)
            Call RegDeletePath(sP & sName)
            Call Plugin_Initialize()
            Call MsgInformation("Item removed...")

       End Select
   else
       Call MsgWarning("No item selected - please select an item first.")
   end if


 end if
END SUB

'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB

Sub Blah
   If a=1 then

      s=sp & aryLoc(ElementSubIndex) & sV1
      sV=RegReadValue(s)


       if true then
          'change it!
          Call RegWriteValue(s,sV,1)
          Call SetUIElement(ElementSubIndex,sV)
       end if

   else
    if ElementIndex=3 then  'Delete!!

       'Create name of first value
       t=sp & aryLoc(ElementSubIndex) ' "& sV1" removed here, and 's' renamed to 't'

       ' Start of new code added by Neil Turner <[e-mail]>
       iCount=RegEnumValues(t) ' Enumerate all values
       For u=1 to iCount
           s=RegEnumElement(u) ' Get one of the values...
           s=t & "\" & s ' Get full path of value...
           Call RegDeleteValue(s) ' ... and delete it!
       Next

       If IsEmpty(t & "\@")=true then
          Call RegDeletePath(t) ' Finally, delete key!
       else
          If IsEmpty(t & "\@")=true then
             Call RegDeleteValue(t & "\@") ' Otherwise, remove (Default) and then delete key. IsEmpty test is carried out twice - otherwise X-Setup produces an error (don't know why).
          end if
          Call RegDeletePath(t)
       end if


 ' End of new code


       'Set item to empty so it is removed from the list...
       Call SetUIElement(ElementSubIndex,"")

    else 'Edit command

       s=sp & aryLoc(ElementSubIndex) & sV2
       sV=RegReadValue(s)

       sV=InputWindow("Change Uninstall Command",sV,1)
       if IsEmpty(sV)=false then
          'change it!
          Call RegWriteValue(s,sV,1)
       end if

    end if
   end if



End Sub